home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / (A)TA / (A)TAR.ADF / Cribbage / modprogram2.bas < prev    next >
BASIC Source File  |  2008-10-31  |  528b  |  13 lines
  1. 5     screen 0,5
  2. 10    su=.12:ru=1-su
  3. 20    for i=0 to 3:for j=0 to 3:if i mod 2=j mod 2 then 40
  4. 30    y(1)=49:y(2)=0:y(3)=0:y(4)=49:goto 50
  5. 40    y(1)=0:y(2)=49:y(3)=49:y(4)=0
  6. 50    x(1)=20:x(2)=20:x(3)=89:x(4)=89
  7. 60    for n=0 to 18:x1=x(4)+i*69:y1=y(4)+j*49
  8. 70    for m=1 to 4:x2=x(m)+i*69:y2=y(m)+j*49
  9. 80    draw(x1,y1 to x2,y2),m mod 2+1:x1=x2:y1=y2:nj=m mod 4+1
  10. 90    xd(m)=ru*x(m)+su*x(nj):yd(m)=ru*y(m)+su*y(nj):next m
  11. 100   for p=1 to 4:x(p)=xd(p):y(p)=yd(p):next p,n,j,i
  12. 120   get a$:if a$="" then 120 else scnclr:end
  13.